Georgia Wildfire Prevention/Georgia Wildfire Prevention.iso/mac/media/dirs/BackUp/code.cst/00006_Script_hilite_move_animation

Text File | 2002-10-15 | 544b | 29 lines

property orect,spritenum,mysprite,myid,stay_on

on new me
  mysprite=sprite(spritenum)
  orect=mysprite.rect
end

on getpropertydescriptionlist me
  plist=[#myid:[#comment:"Sequence number",#format:#integer,#default:1,#range:[#min:1,#max:10]],\
#stay_on:[#comment:"Keep on?",#format:#boolean,#default:FALSE]]
  return plist
end

on beginsprite me
  mysprite.loch=(-2000)
end

on animate me,dx
  if dx=myid then
    mysprite.rect=orect
  else
    if stay_on=0 then mysprite.loch=(-2000)
  end if
  updatestage
end